﻿#Region "IMPORTS"
Imports DAO
#End Region

Public Class Fornecedor
    Inherits Modelo
    Implements IModelo

#Region "ATRIBUTOS"

    Private _fornecedorId As Integer

    Private _nomeFantasia As String

    Private _razaoSocial As String

    Private _cnpj As String

    Private _inscricaoEstadual As String

    Private _contato As String

    Private _telfone As String

    Private _fax As String

    Private _celular As String

    Private _email As String

    Private _site As String

    Private _logradouro As String

    Private _numero As String

    Private _bairro As String

    Private _cep As String

    Private _complemento As String

    Private _cidade As Cidade

#End Region

#Region "CONSTRUTOR(S)"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal id As Integer)
        MyBase.New()
        Me.FornecedorId = id
    End Sub

#End Region

#Region "PROPRIEDADES"

#End Region

#Region "METODOS OVERRIDES"

    Public Property Bairro() As String
        Get
            Return _bairro
        End Get
        Set(ByVal value As String)
            _bairro = value
        End Set
    End Property
    Public Property Celular() As String
        Get
            Return _celular
        End Get
        Set(ByVal value As String)
            _celular = value
        End Set
    End Property
    Public Property Cep() As String
        Get
            Return _cep
        End Get
        Set(ByVal value As String)
            _cep = value
        End Set
    End Property
    Public Property Cidade() As Cidade
        Get
            Return _cidade
        End Get
        Set(ByVal value As Cidade)
            _cidade = value
        End Set
    End Property
    Public Property Cnpj() As String
        Get
            Return _cnpj
        End Get
        Set(ByVal value As String)
            _cnpj = value
        End Set
    End Property
    Public Property Complemento() As String
        Get
            Return _complemento
        End Get
        Set(ByVal value As String)
            _complemento = value
        End Set
    End Property
    Public Property Contato() As String
        Get
            Return _contato
        End Get
        Set(ByVal value As String)
            _contato = value
        End Set
    End Property
    Public Property Email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property Fax() As String
        Get
            Return _fax
        End Get
        Set(ByVal value As String)
            _fax = value
        End Set
    End Property
    Public Property FornecedorId() As Integer
        Get
            Return _fornecedorId
        End Get
        Set(ByVal value As Integer)
            _fornecedorId = value
        End Set
    End Property
    Public Property InscricaoEstadual() As String
        Get
            Return _inscricaoEstadual
        End Get
        Set(ByVal value As String)
            _inscricaoEstadual = value
        End Set
    End Property
    Public Property Logradouro() As String
        Get
            Return _logradouro
        End Get
        Set(ByVal value As String)
            _logradouro = value
        End Set
    End Property
    Public Property NomeFantasia() As String
        Get
            Return _nomeFantasia
        End Get
        Set(ByVal value As String)
            _nomeFantasia = value
        End Set
    End Property
    Public Property Numero() As String
        Get
            Return _numero
        End Get
        Set(ByVal value As String)
            _numero = value
        End Set
    End Property
    Public Property RazaoSocial() As String
        Get
            Return _razaoSocial
        End Get
        Set(ByVal value As String)
            _razaoSocial = value
        End Set
    End Property
    Public Property Site() As String
        Get
            Return _site
        End Get
        Set(ByVal value As String)
            _site = value
        End Set
    End Property
    Public Property Telfone() As String
        Get
            Return _telfone
        End Get
        Set(ByVal value As String)
            _telfone = value
        End Set
    End Property
#End Region

    Public Overrides Function ToString() As String
        Return Me.NomeFantasia
    End Function
End Class
